home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / timeline.dir / 00032_Script_32 < prev    next >
Text File  |  1983-01-29  |  2KB  |  81 lines
  1. on mouseup
  2.   global parola
  3.   set parola to ""
  4.   set ca to the mousecast
  5.   set ch to the mousechar
  6.   set wo to the mouseword
  7.   set wo2 to wo  
  8.   
  9.   if the type of member ca = #shape then
  10.     
  11.     set parola to the name of cast ca
  12.     cercap parola
  13.   end if
  14. end
  15.  
  16. on cercap parolal
  17.   global correlati
  18.   if parolal <> "" then
  19.     if char 1 to 2 of parolal = "ms" then
  20.       set correlati to parolal
  21.       chiamapopsot
  22.       exit
  23.     end if
  24.     
  25.     set dove to offset (parolal,field "rimandi")
  26.     if dove > 0 then
  27.       set mov to (char dove-4 to dove-2 of field "rimandi")&".dir"
  28.       set l to char dove-6 to dove-5 of field "rimandi"
  29.       
  30.       if l="ex" then set cartella to "extraurb"
  31.       if l="ct" then set cartella to "citta"
  32.       if l="ci" then set cartella to "cielo"
  33.       if l="ma" then set cartella to "mare"
  34.       if l="sp" then set cartella to "spazio"
  35.       --      if l="si" then set cartella to "sottoinv"
  36.       if l="mp" then set cartella to "tori"
  37.       
  38.       if the machinetype < 255 then
  39.         if cartella = "tori" then
  40.           go to movie "invenzioni:invenzio:"&cartella&":mp"&mov
  41.         else
  42.           go to movie "invenzioni:invenzio:"&cartella&":mi"&mov
  43.         end if
  44.       else
  45.         if cartella = "tori" then
  46.           go to movie char 1 of the moviepath&":\invenzio\"&cartella&"\mp"&mov
  47.         else
  48.           go to movie char 1 of the moviepath&":\invenzio\"&cartella&"\mi"&mov
  49.         end if
  50.         
  51.       end if
  52.     end if
  53.   end if
  54. end
  55.  
  56.  
  57. on pulisci cosa
  58.   if offset(numtochar (013), cosa) > 0 then put "" into char offset(numtochar (013), cosa) of cosa
  59.   set r to chartonum (char (the number of chars in cosa) of cosa)
  60.   if  (r < 97 or  r > 122)  then
  61.     if (r < 65 or  r > 90) then
  62.       if (r < 48 or  r > 57) then
  63.         if (r < 126) then
  64.           delete char (the number of chars in cosa) of  cosa
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69.   set r to char 1 of cosa
  70.   set r to chartonum (char (the number of chars in cosa) of cosa)
  71.   if  (r < 97 or  r > 122)  then
  72.     if (r < 65 or  r > 90) then
  73.       if (r < 48 or  r > 57) then
  74.         if (r < 126) then
  75.           delete char 1 of  cosa
  76.         end if
  77.       end if
  78.     end if
  79.   end if
  80.   return cosa
  81. end if